home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs22.d81 / reconfig ka43_62 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  101 lines
  1. 5 REM" RECONFIG PRINT DRIVER 23-APR-93
  2. 10 WL[178][194](776)[170]256[172][194](777)[171]100
  3. 15 [129]X[178]1 [164] 2[172]28:[135] A:[130]
  4. 20 PR$[178]"(null)ATN43(null)62":[139] [194](WL[170]80)[178]83 [167] PR$[178]"(null)ATN43(null)61"
  5. 25 BM$[178]"":BM[178][194](WL[170]1607):[139](BM [175] 128) [167] BM$[178]"+128"
  6. 30 NU$[178]"   _LEN"[170][202]([196]([194](WL[170]227)),2)[170]"  PEEK(null)"[170][196](BM [175] 127)[170]BM$
  7. 35 NU$[178]NU$[170]"  (null)ASC"[170][196]([194](WL[170]1736))
  8. 40 SP$[178]"  ASCAST ":[139] [194](WL[170]420)[177]10 [167] SP$[178]"  (null)LOW "
  9. 45 NU$[178]NU$[170]SP$:SP$[178]" RIGHT$PEEK(null)-(null)(null) ":[139] [194](WL[170]2932)[178]134 [167] SP$[178]" RIGHT$PEEK(null)-(null)(null)(null)"
  10. 50 [139] [194](WL[170]2932)[178]0 [167] SP$[178]" ATN(null)LENRIGHT$RIGHT$"
  11. 55 NU$[178]NU$[170]SP$[170]M$
  12. 60 [141]5000:[145] NC [141] 100,200,300,1300,500,600,700,1400,2000
  13. 70 [137]20:[143] ----
  14. 100 [151]WL[170]398,173:[151]WL[170]399,13:[151]WL[170]400,221
  15. 110 [151]WL[170]498,32:[151]WL[170]512,56:[151]WL[170]540,32:[151]WL[170]543,56
  16. 120 [151]WL[170]80,80:[151]WL[170]1536,56:[151]WL[170]1623,56:[151]WL[170]2609,133
  17. 130 Y[178]WL[170]1987:X[178][181](Y[173]256):[151] WL[170]187,Y[171]256[172]X:[151] WL[170]188,X
  18. 140 [151]WL[170]1607,[194](WL[170]1607)[175]127
  19. 150 [142]
  20. 200 [151]WL[170]398,24:[151]WL[170]399,144:[151]WL[170]400,248
  21. 210 [151]WL[170]498,44:[151]WL[170]512,24:[151]WL[170]540,44:[151]WL[170]543,24
  22. 220 [151]WL[170]80,83:[151]WL[170]1536,24:[151]WL[170]1623,24:[151]WL[170]2609,36
  23. 230 [151]WL[170]187,227:[151]WL[170]188,168
  24. 240 [151]WL[170]1607,[194](WL[170]1607)[175]127:[139] [194](WL[170]1607)[177]74 [167] 420
  25. 250 [142]
  26. 300 [139] [194](WL[170]1607)[179]75 [167]400
  27. 310 [151]WL[170]1307,10:[151]WL[170]1319,5:[151]WL[170]1602,42:[151]WL[170]1607,1:[143]"_C0,1
  28. 320 RETURN
  29. 400 POKEWL+1307,11:POKEWL+1319,4:POKEWL+1602,27:POKEWL+1607,76:REM"_C0,76
  30. 410 [139] [194](WL[170]80)[178]80 [167] [142]:[143] PAR PRINTER
  31. 420 L$[178]"":D$[178]"":X[178]18
  32. 425 X$[178]"":X[178][171]18[172](X[178]146)[171]146[172](X[178]18):X$[178]L$[170][199](X):[153] D$:Y[178][184](8)
  33. 430 [153] L$"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  34. 435 PRINT X$"[165][193]DD 128 TO [194]ITMAP[167]
  35. 440 [153] X$"FN(null)ODE VALUE  FOR ATHEN
  36. 445 PRINT X$"[165][208][197][212][211][195][201][201] PRINTER ?[167]
  37. 450 [153] X$"FN      Y/N        THEN
  38. 455 PRINT L$"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  39. 460 [161] A$:[139] A$[178]""[167]425
  40. 465 [139] A$[178]"Y" [167] [151]WL[170]1607,[194](WL[170]1607)[170]128
  41. 470 [142]
  42. 500 LF[178][194](WL[170]1736):LF[178][171]23[172](LF[178]24)[171]20[172](LF[178]23)[171]24[172](LF[179][177]23 [175] LF[179][177]24)
  43. 510 [151]WL[170]1736,LF:[142]
  44. 600 X[178][194](WL[170]420):Y[178][171]127[172](X[179]10)[171]2[172](X[177]9):[151]WL[170]420,Y:[151]WL[170]430,Y
  45. 610 [142]
  46. 700 Z[178][194](WL[170]2905[170]27):[139] Z[178]134 [176] Z[178]206[167]800
  47. 710 [140]:[129] Y[178]WL[170]2905 [164] WL[170]2905[170]27:[135] A:[151] Y,A:[130]
  48. 720 [129] Y[178]1 [164] 28:[135] A:[130]
  49. 730 [131] 15,20,192,205,165,186,167,186,176,201,174,187,189,188,173,200
  50. 740 [131] 219,146,220,157,221,143,91,145,92,155,93,134:[143]" NORSK
  51. 750 RETURN
  52. 800 IF Z=206 THEN900
  53. 810 RESTORE:FOR Y=1 TO 28:READ A:NEXT
  54. 820 FOR Y=WL+2905 TO WL+2905+27:READ A:POKE Y,A:NEXT
  55. 830 DATA 15,20,192,205,165,186,167,186,176,201,174,187,189,188,173,200
  56. 840 DATA 221,186,171,204,179,185,177,202,178,203,219,206:REM" ASCII
  57. 850 [142]
  58. 900 X[178]WL[170]2905:[151] X,15:[151] X[170]1,20
  59. 910 [129] Y[178]X[170]2 [164] X[170]27:[151] Y,0:[130]
  60. 920 [142]
  61. 1300 X[178][194](WL[170]1607):Y[178]X [175] 128:X[178]X [175] 127
  62. 1310 [139] X[179]74 [167] X[178](X[170]1)[172](1[170](X[177]6)):[137] 1340
  63. 1320 [139] [168](X[178]75 [176] X[178]76 [176] X[178]89 [176] X[178]90) [167] X[178]75
  64. 1330 X[178][171]75[172](X[178]90)[171]76[172](X[178]75)[171]89[172](X[178]76)[171]90[172](X[178]89)
  65. 1340 [151]WL[170]1607,X[170]Y
  66. 1350 [142]
  67. 1400 X[178][194](WL[170]227):X[178]X[170]1[170]3[172](X[178]2):[151] WL[170]227,X
  68. 1410 [142]
  69. 2000 [151]53280,14:[151]53281,6:[153] "LOADCONT"
  70. 2010 [139] WL[178][194](776)[170]256[172][194](777)[171]100 [167] [153] [166]7);:[158] WL
  71. 2020 [128]
  72. 5000 [143]" MENU NC
  73. 5010 CL=15:CY=151:BL=144:REM"COLOURS
  74. 5020 [139] NO[177]0 [137]5060
  75. 5030 [135] NO,NC:[134] N$(NO),OP$(NO)
  76. 5040 [129]X[178]0[164]NO:[135] OP$(X):[130]
  77. 5060 [153]"LOAD";:[151] 53280,CL:[151] 53281,CL
  78. 5070 [153]"OR";:[129]X[178]1[164]37:[153]"TAN";:[130]:[153]"^"
  79. 5080 [153]"FN   (null)ATN (null)(null)(null)CHR$(null)ATN(null) (null)VAL(null)(null) AT YOUR SERVICE   THEN
  80. 5090 PRINT"[173]";:FORX=1TO37:PRINT"[192]";:NEXT:PRINT"[189]"
  81. 5100 PRINT:PRINTCHR$(BL)" [211]ELECT WITH  [195][213][210][211][207][210] [146]"
  82. 5110 PRINT ""
  83. 5120 FORX=1TONO:N$(X)=CHR$(CY)+CHR$(146+128*(X=NC))+CHR$(-BL*(X=NC)):NEXT
  84. 5130 PRINTTAB(40)CHR$(146+128*(NC>0))"[129] [210][197][212][213][210][206] [146]  TO [197]XECUTE"
  85. 5135 PRINT TAB(10)""+PR$+" AT:"WL:PRINT NU$
  86. 5140 FORX=0TONO:PRINTTAB(19-LEN(OP$(X))/2)N$(X)OP$(X):NEXT
  87. 5150 GETC1$:IFC1$=""THENNC=ABS(NC):NC=1+NC*SGN(NO-NC):GOTO5110
  88. 5160 IFC1$="[145]"THENNC=ABS(NC):NC=NC-1-NO*SGN(NC-1)+NO:GOTO5110
  89. 5170 Z=FRE(8):IFC1$=CHR$(13)THEN NC=ABS(NC):RETURN
  90. 5180 NC=-NC:GOTO5110
  91. 5190 DATA 9,1
  92. 5200 DATA" *** [210]ECONFIGURE ***"
  93. 5210 DATA "[208]ARALLEL [208]RINTER","[211]ERIAL [208]RINTER"
  94. 5220 DATA "[195]HANGE [194]ITMAP [205]ODE"
  95. 5230 DATA "[195]HANGE [194]ITMAP [196]ENSITY"
  96. 5240 DATA "[204]INE [198]EED (24, 23 OR 20)"
  97. 5250 DATA "[212]RANSFER [211]PEED (ONLY [208]AR [208]RINTER)"
  98. 5260 DATA "[208]RINTER [195]HR IN _[195]2 [205]ODE"
  99. 5270 DATA "[195]HARACTER MODE (_[195])"
  100. 5300 DATA "- [197][206][196] -"
  101.